home *** CD-ROM | disk | FTP | other *** search
/ Robotics & Artificial Int…3 (Professional Edition) / Robotics & Artificial Intelligence Tools 2003 (Professional Edition).iso / neural network tool and application / nsinstall.exe / data1.cab / Demos_Files / OLE_Automation / frmPrepareToTest.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-03-08  |  1.6 KB  |  46 lines

  1. VERSION 5.00
  2. Begin VB.Form PrepareToTest 
  3.    Caption         =   "Prepare to test"
  4.    ClientHeight    =   912
  5.    ClientLeft      =   9168
  6.    ClientTop       =   3588
  7.    ClientWidth     =   2268
  8.    LinkTopic       =   "Form1"
  9.    MaxButton       =   0   'False
  10.    PaletteMode     =   1  'UseZOrder
  11.    ScaleHeight     =   912
  12.    ScaleWidth      =   2268
  13.    Begin VB.CommandButton cmdPrepareToTest 
  14.       Caption         =   "Prepare to test"
  15.       Height          =   375
  16.       Left            =   240
  17.       TabIndex        =   0
  18.       Top             =   240
  19.       Width           =   1815
  20.    End
  21. Attribute VB_Name = "PrepareToTest"
  22. Attribute VB_GlobalNameSpace = False
  23. Attribute VB_Creatable = False
  24. Attribute VB_PredeclaredId = True
  25. Attribute VB_Exposed = False
  26. Private Sub cmdPrepareToTest_Click()
  27.     Dim NSApp As Object
  28.     Dim NSBB As Object
  29.         
  30.     Set NSApp = CreateObject("NeuroSolutions.Application")
  31.     Set NSBB = NSApp.activeBreadboard
  32.     NSBB.send "controlBackprop. freeALL (  )"
  33.     NSBB.deleteObject "inputFile"
  34.     NSBB.stampOnAndMove "OLEInput", "inputAxon"
  35.     NSBB.send "oLEInput. setActiveAccessPoint ( ""Pre-Activity"" )"
  36.     NSBB.stampOnAndMove "MatrixViewer", "outputAxon"
  37.     NSBB.send "matrixViewer. setName ( ""trainingCostProbe"" )"
  38.     NSBB.send "trainingCostProbe. setActiveAccessPoint ( ""Activity"" )"
  39.     NSBB.send "trainingCostProbe. openEngineWindow (  )"
  40.     NSBB.send "control. setEpochs ( 1 )"
  41.     NSBB.send "control.setLearning(FALSE)"
  42.     NSBB.send "nextButton. setMacroAction ( 1 )"
  43.     NSBB.send "nextButton. setColor ( 255,0,0 )"
  44.     End
  45. End Sub
  46.